home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / cdi.c < prev    next >
Text File  |  2009-10-10  |  5KB  |  264 lines
  1. /*
  2.  * CDI.C - CHARACTER DIFFERENCE DETECTOR
  3.  *
  4.  * ┴DRIAN ╨EPPER, 1987
  5.  *
  6.  * DEVELOPED WITH/FOR ├ ╨╧╫┼╥ 64 SYSTEM
  7.  *
  8.  * ╒PLOADED AS IS, IN RESPONSE TO
  9.  * PERCEIVED NEED.  (╘HAT'S AN APOLOGY
  10.  * FOR LACK OF COMMENTS)
  11.  *
  12.  * ╒SAGE:
  13.  *
  14.  * CDI [-H -O# -L# -M#] FILE1 FILE2
  15.  *
  16.  *  -H GIVE OUTPUT IN HEX (ELSE DECIMAL)
  17.  *
  18.  *  -O SPECIFY AN OFFSET (IN DECIMAL) TO
  19.  *     BE ASSUMED FOR BEGINNING OF FILE
  20.  *
  21.  *  -L,-M SET VALUES OF VARS MATLEN,
  22.  *     AND MATRAT, WHICH INFLUENCE THE
  23.  *     ALGORITHM FOR DECIDING WHEN FILES
  24.  *     ARE MATCHING AGAIN
  25.  */
  26. #INCLUDE <STDIO.H>
  27.  
  28. #DEFINE ┘┼╙ 1
  29. #DEFINE ╬╧ 0
  30.  
  31. TYPEDEF INT ┬╔╟;   /* USE FLOAT FOR REALLY ┬╔╟ FILES */
  32.  
  33. INT MATLEN = 20;
  34. INT MATRAT = 2;
  35. INT HEX = 0;
  36. INT OFFSET = 0;
  37. MAIN(ARGC,AV)
  38. INT ARGC;
  39. CHAR **AV;
  40. █
  41.   AUTO ╞╔╠┼ F1, F2;
  42.   AUTO CHAR **ARGV;
  43.  
  44.   ARGV = AV;
  45.   ARGC = OPTION(ARGC, &ARGV);
  46.   IF (ARGC < 2) █
  47.     PRINTF("USAGE:CDI [-L# -M# -H -O#] FILE1 FILE2\N");
  48.     EXIT(1);
  49.   ▌
  50.   IF ((F1 = FOPEN(ARGV[0], "R")) == 0 ▀▀
  51.     FERROR()) █
  52.     PRINTF("CAN'T OPEN %S\N",ARGV[0]);
  53.     EXIT(1);
  54.   ▌
  55.   IF ((F2 = FOPEN(ARGV[1], "R")) == 0 ▀▀
  56.     FERROR()) █
  57.     PRINTF("CAN'T OPEN %S\N",ARGV[1]);
  58.     EXIT(1);
  59.   ▌
  60.   CDI(F1, F2, ARGV[0], ARGV[1]);
  61. ▌
  62.  
  63. OPTION(ARGC, PARGV)
  64. INT ARGC;
  65. CHAR ***PARGV;
  66. █
  67.   AUTO CHAR **ARGV;
  68.  
  69.   MATLEN = 20;
  70.   MATRAT = 2;
  71.   HEX = 0;
  72.   OFFSET = 0;
  73.  
  74.   ARGV = *PARGV;
  75.   ++ARGV;
  76.   --ARGC;
  77.   WHILE (ARGC > 0 && *ARGV[0] == '-') █
  78.     SWITCH ((*ARGV)[1])
  79.     █
  80.     CASE 'L':
  81.       IF (--ARGC < 1 ▀▀ (MATLEN = ATOI(*++ARGV)) <= 0)
  82.         MATLEN = 1;
  83.       BREAK;
  84.     CASE 'M':
  85.       IF (--ARGC < 1 ▀▀ (MATRAT = ATOI(*++ARGV)) <= 0)
  86.         MATRAT = 1;
  87.       BREAK;
  88.     CASE 'O':
  89.       IF (--ARGC >= 1)
  90.         OFFSET = ATOI(*++ARGV);
  91.       BREAK;
  92.     CASE 'H':
  93.       HEX = 1;
  94.       BREAK;
  95.     DEFAULT:
  96.       *PARGV = ARGV;
  97.       RETURN 0; 
  98.     ▌ 
  99.     --ARGC;
  100.     ++ARGV;
  101.   ▌
  102.   *PARGV = ARGV;
  103.   RETURN ARGC;
  104. ▌
  105.  
  106.  
  107. BCMP(B1, B2, LEN)
  108. INT B1[], B2[];
  109. INT LEN;
  110. █
  111.   AUTO INT I;
  112.  
  113.   FOR (I = 0; I < LEN; ++I)
  114.     IF (B1[I] != B2[I]) RETURN ╬╧;
  115.   RETURN ┘┼╙;
  116. ▌
  117.  
  118. MATCH(U1, B1, R1, U2, B2, R2, LENGTH)
  119. INT U1;
  120. INT B1[];
  121. INT R1;
  122. INT U2;
  123. INT B2[];
  124. INT R2;
  125. INT LENGTH;
  126. █
  127.   AUTO INT I;
  128.  
  129.   IF ((R1-U1) < LENGTH ▀▀ (R2-U2) < LENGTH) RETURN R1;
  130.   FOR (I = U1; I <= (R1-LENGTH) && BCMP(&B1[I], &B2[R2-LENGTH], LENGTH) == ╬╧; ++I)
  131.     ;
  132.   RETURN I;
  133. ▌
  134.  
  135. SHUFFLE(BUF, R, U)
  136. INT BUF[];
  137. INT R, U;
  138. █
  139.   AUTO INT I;
  140.  
  141.   IF (U == 0) █
  142.     PRINTF("╘OO MANY DIFFERENCES\N");
  143.     EXIT(1);
  144.   ▌
  145.   FOR (I = U; I < R; ++I)
  146.     BUF[I-U] = BUF[I];
  147.   RETURN R-U;
  148. ▌
  149.  
  150.  
  151. #DEFINE ═┴╪┬╒╞ 1000
  152. INT BUF1[═┴╪┬╒╞] = █0▌;
  153. INT BUF2[═┴╪┬╒╞] = █0▌;
  154. CDI(F1, F2, NAME1, NAME2)
  155. ╞╔╠┼ F1, F2;
  156. CHAR *NAME1, *NAME2;
  157. █
  158.   AUTO ┬╔╟ COUNT1, COUNT2;
  159.   AUTO INT USED1, USED2;  /* BUFFERED CHAR "USED" */
  160.   AUTO INT READ1, READ2;  /* BUFFERED CHAR "READ" */
  161.   AUTO INT I1, I2;
  162.   AUTO INT LEN;
  163.   AUTO CHAR *FMT;
  164.  
  165.   READ1 = READ2 = 0;
  166.   USED1 = USED2 = 0;
  167.   COUNT1 = COUNT2 = ((┬╔╟)OFFSET);
  168.  
  169.   FOR ( ; ; ) █
  170.     WHILE (USED1 != READ1 ▀▀ USED2 != READ2) █
  171.       IF (USED1 == READ1) █
  172.         USED1 = READ1 = 0;
  173.         BUF1[READ1++] = GETC(F1);
  174.       ▌
  175.       IF (USED2 == READ2) █
  176.         USED2 = READ2 = 0;
  177.         BUF2[READ2++] = GETC(F2);
  178.       ▌
  179.       LEN = READ1-USED1;
  180.       IF ((READ2-USED2) > LEN) LEN = READ2-USED2;
  181.       LEN = (LEN/MATRAT) + 1;
  182.       IF (LEN > MATLEN) LEN = MATLEN;
  183.       I1 = MATCH(USED1, BUF1, READ1, USED2, BUF2, READ2, LEN);
  184.       I2 = MATCH(USED2, BUF2, READ2, USED1, BUF1, READ1, LEN);
  185.       /* ASSERT USED1 < READ1 && USED2 < READ2 */
  186.       IF (BUF1[USED1] == BUF2[USED2]) █
  187.         ++USED1;
  188.         ++USED2;
  189.         COUNT1 = COUNT1 + ((┬╔╟)1);
  190.         COUNT2 = COUNT2 + ((┬╔╟)1);
  191.       ▌
  192.       ELSE IF (I1 <= (READ1-LEN) && (I2 > (READ2-LEN) ▀▀ (I1-USED1) <= (I2-USED2))) █
  193.         SHOWDIFF(&COUNT1, BUF1, &USED1, I1, &COUNT2, BUF2, &USED2, READ2-LEN, LEN);
  194.       ▌
  195.       ELSE IF (I2 <= (READ2-LEN) && (I1 > (READ1-LEN) ▀▀ (I2-USED2) <= (I1-USED1))) █
  196.         SHOWDIFF(&COUNT1, BUF1, &USED1, READ1-LEN, &COUNT2, BUF2, &USED2, I2, LEN);
  197.       ▌
  198.       ELSE █
  199.         IF (READ1 >= ═┴╪┬╒╞) █
  200.           READ1 = SHUFFLE(BUF1, READ1, USED1);
  201.           USED1 = 0;
  202.         ▌
  203.         BUF1[READ1++] = GETC(F1);
  204.         IF (READ2 >= ═┴╪┬╒╞) █
  205.           READ2 = SHUFFLE(BUF2, READ2, USED2);
  206.           USED2 = 0;
  207.         ▌
  208.         BUF2[READ2++] = GETC(F2);
  209.       ▌
  210.     ▌
  211.     USED1 = READ1 = 0;
  212.     BUF1[0] = GETC(F1);
  213.     USED2 = READ2 = 0;
  214.     BUF2[0] = GETC(F2);
  215.     IF (BUF1[0] == ┼╧╞ && BUF2[0] == ┼╧╞) BREAK;
  216.     IF (BUF1[0] != BUF2[0]) █
  217.       ++READ1;
  218.       ++READ2;
  219.     ▌
  220.     ELSE █
  221.       COUNT1 = COUNT1 + ((┬╔╟)1);
  222.       COUNT2 = COUNT2 + ((┬╔╟)1);
  223.     ▌
  224.   ▌
  225.   FMT = "%D:%S %0.0F(%0.0F BYTES)\N";
  226.   IF (SIZEOF(┬╔╟) != SIZEOF(FLOAT))
  227.     FMT = HEX ? "%D:%S $%04X (%D BYTES)\N" : "%D:%S %D (%D BYTES)\N";
  228.   PRINTF(FMT, 1, NAME1, COUNT1, COUNT1-((┬╔╟)OFFSET));
  229.   PRINTF(FMT, 2, NAME2, COUNT2, COUNT2-((┬╔╟)OFFSET));
  230. ▌
  231.  
  232. SHOWDIFF(PC1, B1, PU1, I1, PC2, B2, PU2, I2, LEN)
  233. ┬╔╟ *PC1;
  234. INT B1[];
  235. INT *PU1;
  236. INT I1;
  237. ┬╔╟ *PC2;
  238. INT B2[];
  239. INT *PU2;
  240. INT I2;
  241. █
  242.   AUTO INT I;
  243.   AUTO CHAR *FMT;
  244.  
  245.   FMT = "%D:(%6.0F):";
  246.   IF (SIZEOF(┬╔╟) != SIZEOF(FLOAT))
  247.     FMT = HEX ? "%D:($%04X):" : "%D:(%6D):";
  248.   IF (B1[I1+LEN-1] != B2[I2+LEN-1]) █
  249.     PRINTF("SHOULDN'T HAPPEN\N");
  250.   ▌
  251.   PRINTF(FMT, 1, *PC1);
  252.   FOR (I = *PU1; I <= I1; ++I)
  253.     PRINTF(" %02X", B1[I]);
  254.   PRINTF("\N");
  255.   PRINTF(FMT, 2, *PC2);
  256.   FOR (I = *PU2; I <= I2; ++I)
  257.     PRINTF(" %02X", B2[I]);
  258.   PRINTF("\N");
  259.   *PC1 = *PC1 + ((┬╔╟)(I1 - *PU1 + 1));
  260.   *PU1 = I1 + 1;
  261.   *PC2 = *PC2 + ((┬╔╟)(I2 - *PU2 + 1));
  262.   *PU2 = I2 + 1;
  263. ▌